Otherware/Otherware_1_SB_Development.iso/mac/hypercar/xcmd/hfind.sit/HyperFind 1.0/stack_-1.xml

Extensible Markup Language | 1991-07-14 | 4.1 KB | 20 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.0</name>
    <id>-1</id>
    <cardCount>1</cardCount>
    <cardID>3030</cardID>
    <listID>4194</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>-- HyperFind 1.0ß7
-- Copyright © 1991 by Kevin Altis
--
-- Kevin Altis
-- KEA
-- 1631 SW Yamhill, Suite 209
-- Portland, OR 97205
-- [phone]
--
-- America Online: KAltis
-- AppleLink: D4213
-- Compuserve: 73137,434


-- gHyperFind stores various parameters of HyperFind as separate lines
-- 1. find method: default (none), chars, string, whole, or word
-- 2. search text
-- 3. field # to restrict find to or 0 for all cd and bg fields
-- 4. restrict find to marked cds only (true or false)
-- 5. x,y location of HyperFind window in coordinates global to the
--    topmost card window
-- 6. whether to zoom window (true or false)
on doMenu iName, mName
global gHyperFind

if iName = "Find..." then
if there is a window "Find"
then show window "Find" -- set "select" of window "Find" to "" -- show and bring to front (param value is irrelevant)
else
if gHyperFind is empty then initgHyperFind  -- restore gHyperFind
if selectedChunk() is not empty
then put line 1 of selectedText() into line 2 of gHyperFind
if line 6 of gHyperFind = true then
HyperFind line 1 of gHyperFind, line 2 of gHyperFind, ¬
line 3 of gHyperFind, line 4 of gHyperFind, line 5 of gHyperFind, true
else
HyperFind line 1 of gHyperFind, line 2 of gHyperFind, ¬
0, false, line 5 of gHyperFind, false
end if
end if
set editBkgnd to false  -- make sure we can see text in fields
choose browse tool -- force closeField
else pass doMenu
end doMenu

-- when a CloseXWindow message is sent to HyperFind
-- it will send a closeHyperFind message before closing HyperFind
-- so we have a chance to save the current parameters of HyperFind
-- for the next time its called
-- the parameters will probably be sent with the message to save the
-- hassle of having to do "get property..." for each parameter
on closeHyperFind method, pattern, findField, markedOnly, windowLoc, zoomed
global gHyperFind

-- put the params into gHyperFind
if findField = "All Card & Background Fields"
then get 0
else
if char 1 to 15 of findField = "bkgnd field id "
then get fld id (word 4 of findField)
else get number of fld findField
end if
put method & return & pattern & return & it & return & ¬
markedOnly & return & windowLoc & return & zoomed into gHyperFind
end closeHyperFind

on helpHyperFind
get short name of me
if short name of this stack is not it then
push cd
-- lock screen
go stack it
-- unlock screen with visual effect iris open
end if
end helpHyperFind

-- restore gHyperFind from last time we were using HyperCard
on initgHyperFind
global gHyperFind

lock screen
set lockMessages to true
set lockRecent to true
push cd
-- We won't restore gHyperFind if the user is asked to find this stack
-- but chooses "Cancel" from the SFGetDialog, or if this stack has
-- been modified so there is no longer a "gHyperFind Clipboard" field.
get short name of me
if short name of this stack is not it then go stack it
put cd fld "gHyperFind Clipboard" into gHyperFind
pop cd
set lockMessages to false
set lockRecent to false
unlock screen
end initgHyperFind

-- save gHyperFind for next time we use HyperCard
on savegHyperFind
global gHyperFind

lock screen
set lockMessages to true
push cd
-- We won't save gHyperFind if the user is asked to find this stack
-- but chooses "Cancel" from the SFGetDialog, or if this stack has
-- been modified so there is no longer a "gHyperFind Clipboard" field.
get short name of me
if short name of this stack is not it then go stack it
put gHyperFind into cd fld "gHyperFind Clipboard"
pop cd
set lockMessages to false
unlock screen
end savegHyperFind

on quit
savegHyperFind
end quit</script>
    <background id="2615" file="background_2615.xml" name="" />
    <card id="3030" file="card_3030.xml" marked="false" name="" owner="2615" />
</stack>